inherited fmPersonelMesaj: TfmPersonelMesaj
  Left = 354
  Top = 181
  Caption = 'Personel Mesaj'
  ClientHeight = 405
  ClientWidth = 852
  PixelsPerInch = 96
  TextHeight = 13
  object cxGrid1: TcxGrid [0]
    Tag = 496
    Left = 0
    Top = 0
    Width = 852
    Height = 370
    Align = alClient
    TabOrder = 0
    LookAndFeel.NativeStyle = True
    object cxGrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = dsEntry
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
        end
        item
          Kind = skCount
        end
        item
          Kind = skCount
        end
        item
          Kind = skCount
        end
        item
          Kind = skCount
        end
        item
          Kind = skCount
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.IncSearch = True
      OptionsData.Appending = True
      OptionsData.CancelOnExit = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      object cxGrid1DBTableView1Perkod: TcxGridDBColumn
        Caption = 'Ad Soyad'
        DataBinding.FieldName = 'Perkod'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'Perkod'
        Properties.ListColumns = <
          item
            FieldName = 'AdSoyad'
          end>
        Properties.ListSource = dsPers
        Width = 156
      end
      object cxGrid1DBTableView1MesajSaat: TcxGridDBColumn
        Caption = 'Mesaj Saat'
        DataBinding.FieldName = 'MesajSaat'
        PropertiesClassName = 'TcxTimeEditProperties'
        Properties.TimeFormat = tfHourMin
        Width = 75
      end
      object cxGrid1DBTableView1MesajSure: TcxGridDBColumn
        Caption = 'Mesaj S'#252're Dk'
        DataBinding.FieldName = 'MesajSure'
        Width = 79
      end
      object cxGrid1DBTableView1Mesaj: TcxGridDBColumn
        DataBinding.FieldName = 'Mesaj'
        Width = 374
      end
      object cxGrid1DBTableView1BasTarih: TcxGridDBColumn
        Caption = 'Ba'#351'.Tarih'
        DataBinding.FieldName = 'BasTarih'
        Width = 85
      end
      object cxGrid1DBTableView1BitTarih: TcxGridDBColumn
        Caption = 'Bit.Tarih'
        DataBinding.FieldName = 'BitTarih'
        Width = 81
      end
      object cxGrid1DBTableView1Aktif: TcxGridDBColumn
        DataBinding.FieldName = 'Aktif'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Width = 51
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object Panelx: TPanel [1]
    Left = 0
    Top = 370
    Width = 852
    Height = 35
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      852
      35)
    object bkapat: TBitBtn
      Left = 778
      Top = 4
      Width = 60
      Height = 25
      Anchors = [akTop, akRight]
      Caption = '&Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object byeni: TBitBtn
      Tag = 1000
      Left = 9
      Top = 4
      Width = 60
      Height = 25
      Caption = '&Yeni'
      TabOrder = 1
      OnClick = byeniClick
    end
    object bsil: TBitBtn
      Tag = 1001
      Left = 75
      Top = 4
      Width = 60
      Height = 25
      Caption = '&Sil'
      TabOrder = 2
      OnClick = bsilClick
    end
    object bduzelt: TBitBtn
      Tag = 1002
      Left = 142
      Top = 4
      Width = 60
      Height = 25
      Caption = '&D'#252'zelt'
      TabOrder = 3
      OnClick = bduzeltClick
    end
  end
  inherited alKeyControl: TActionList
    Left = 625
    Top = 451
  end
  inherited XPManifest: TXPManifest
    Left = 682
    Top = 447
  end
  object aqEntry: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'select * from tblPersonelMesaj'
      
        'Order by (select Adi+'#39' '#39'+Soyadi from perkart Where Perkod=tblPer' +
        'sonelMesaj.Perkod) ')
    Left = 122
    Top = 194
  end
  object dsEntry: TDataSource
    DataSet = aqEntry
    Left = 122
    Top = 250
  end
  object aqPers: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'select Perkod,AdSoyad=Adi+'#39' '#39'+Soyadi from perkart '
      
        'Where Exists(Select personelid From Kullanici Where Personelid=P' +
        'erkod)'
      'Order by Adi+'#39' '#39'+Soyadi')
    Left = 122
    Top = 132
  end
  object dsPers: TDataSource
    DataSet = aqPers
    Left = 190
    Top = 133
  end
end
